• Data SQLite database for each run with key statistics
• Audience Project team, peer review panel, others?

library(swimr)
ref <- src_sqlite("data-raw/Reference.db")
bb1 <- src_sqlite("data-raw/BridgeFail_1yr.db")

plot_floorspace(ref, facet_var = "MPO", facet_levels = c("Metro", "SalemKeizer"), 
                price = TRUE)

change_leaflet(ref, 2010, 2040)

compare_trips(ref, bb1, facet_var = "COUNTY", 
              facet_levels = c("Multnomah", "Clark_WA"), diff_type = "pct_diff")

compare_trips(ref, bb1, facet_var = "COUNTY", 
              facet_levels = c("Multnomah", "Clark_WA"), diff_type = "diff") %>%
  ggplotly()

[Website][website/Multifamily.html]

• A package kept things organized and helped with dependencies
• Stay up on improvements in your language
• Write clean and flexible code, because things change